home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g15.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  44 lines
  1. 100 ' G15 T.WAKAMATSU
  2. 110 CLS:CD PLAY 4,11
  3. 120 FOR N=3 TO 5
  4. 130   READ L,M,O:DATA 9,4,7,5,3,5,12,6,1
  5. 140   FOR K=0 TO 360/N STEP 2
  6. 150     T1=K/180*3.14159!
  7. 160     X=239*COS(T1)+320
  8. 170     Y=239*SIN(T1)+240
  9. 180     PSET(X,Y):M=L-M
  10. 190     FOR J=K TO K+360 STEP 360/N
  11. 200       T=J/180*3.14159!
  12. 210       X=239*COS(T)+320
  13. 220       Y=239*SIN(T)+240
  14. 230       LINE-(X,Y),PSET,M
  15. 240     NEXT J
  16. 250   NEXT K
  17. 260   FOR K=0 TO 360/N STEP 2
  18. 270     T1=K/180*3.14159!
  19. 280     X=239*COS(T1)+320
  20. 290     Y=239*SIN(T1)+240
  21. 300     PSET(X,Y)
  22. 310     FOR J=K TO K+360 STEP 360/N
  23. 320       T=J/180*3.14159!
  24. 330       X=239*COS(T)+320
  25. 340       Y=239*SIN(T)+240
  26. 350       LINE-(X,Y),PSET,O
  27. 360     NEXT J
  28. 370   NEXT K
  29. 380 NEXT N
  30. 390 FOR N=3 TO 5
  31. 410   FOR K=0 TO 360/N STEP 2
  32. 420     T1=K/180*3.14159!
  33. 430     X=239*COS(T1)+320
  34. 440     Y=239*SIN(T1)+240
  35. 450     PSET(X,Y)
  36. 460     FOR J=K TO K+360 STEP 360/N
  37. 470       T=J/180*3.14159!
  38. 480       X=239*COS(T)+320
  39. 490       Y=239*SIN(T)+240
  40. 500       LINE-(X,Y),PSET,0
  41. 510     NEXT J
  42. 520   NEXT K
  43. 530 NEXT N
  44.